home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / rexx / frontsheet.mbrx < prev    next >
Text File  |  1996-06-28  |  1KB  |  54 lines
  1. /*
  2. ** FrontSheet.mbrx Version 1.0
  3. ** By Tom Bampton
  4. **
  5. ** © 1996 Eden Software
  6. **
  7. ** This little script creates a front cover for your databases by making the
  8. ** first records name a title.
  9. */
  10.  
  11. /*
  12.    The path to MegaBook in case it isn't running
  13. */
  14. MegaBookPath = 'MegaBook3:MegaBook'
  15.  
  16. /* Check if MegaBook is running, if not, run it */
  17. if ~show('P', 'MEGABOOK.01') then do
  18.     address command
  19.     'run >nil: ' MegaBookPath
  20.     /* Wait for the ARexx port */
  21.     do 5 while ~show('P', 'MEGABOOK.01')
  22.         'sys:rexxc/waitforport MEGABOOK.01'
  23.     end
  24. end
  25.  
  26. address 'MEGABOOK.01'
  27. options results
  28.  
  29. New No_Confirm
  30.  
  31. GetString "Enter the title:"
  32. Title = result
  33. if RC = 5 then exit
  34.  
  35. SelectFile "Select file for cover..."
  36. File = result
  37. if RC = 5 then exit
  38.  
  39. /* Add an entry */
  40. Add_Entry
  41. /* Put in the title */
  42. Put_Entry 1 '<' Title '>'
  43. /* Blank out the unneeded fields */
  44. Put_Entry 2 ''
  45. Put_Entry 3 'Created by FrontSheet.mbrx'
  46. Put_Entry 4 'Version 1.0'
  47. Put_Entry 5 ''
  48. Put_Entry 6 'By Tom Bampton'
  49. Put_Entry 7 ''
  50. Put_Entry 8 '© 1996 Eden Software'
  51.  
  52. /* Merge the file to create the title */
  53. Merge File
  54.